home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / herc.arc / KBCLR.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-06-15  |  667 b   |  37 lines
  1. ; Clear keyboard buffer. EG: void kbclr(void);
  2.  
  3.         name   kbclr
  4.  
  5. public  _kbclr
  6.  
  7. DGROUP  group   _DATA
  8.         assume  ds:DGROUP
  9.  
  10. _DATA   segment word    public  'DATA'
  11. _DATA   ends
  12.  
  13.  
  14. _TEXT   segment byte    public  'CODE'
  15.         assume  cs:_TEXT
  16.  
  17. _kbclr  proc    near
  18.         push    bp
  19.         mov     bp, sp
  20.  
  21. loop1:  mov     ah, 1           ; ? kb_buff clear ?
  22.         int     16h
  23.  
  24. while:  jz      short return    ; kb_buff is empty
  25.         mov     ah, 0           ; read 1 char
  26.         int     16h
  27.         jmp     short loop1
  28.  
  29. return: mov     sp, bp
  30.         pop     bp
  31.         ret
  32. _kbclr  endp
  33.  
  34. _TEXT   ends
  35.         end
  36.  
  37.